home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 2000 June (IDG) / Macworld_June_2000.iso / Shareware World / Graphics / Geo3D 1.5.6 / Sample Scripts / Viewer Test < prev   
Encoding:
Text File  |  1999-11-17  |  1.7 KB  |  41 lines  |  [TEXT/ToyS]

  1. tell application "Geo3D"
  2.     activate
  3.     set doc to make new document
  4.     if exists upright of doc then
  5.         set upright of doc to true -- Viewer:Modes:Remain Upright
  6.     end if
  7.     if exists mode of doc then
  8.         set mode of doc to centerview -- Viewer:Modes:Center View
  9.         set mode of doc to walk -- Viewer:Modes:Walk
  10.     end if
  11.     if exists pick of doc then
  12.         set pick of doc to none -- Viewer:Modes:Don't Pick
  13.         set pick of doc to goto -- Viewer:Modes:Go To/Set Center
  14.         set pick of doc to distance -- Viewer:Modes:Distance
  15.         set pick of doc to launch -- Viewer:Modes:Launch URL
  16.         set pick of doc to edit -- Viewer:Modes:Edit URL
  17.     end if
  18.     if exists mousehorizontal of doc then
  19.         set mousehorizontal of doc to yaw -- Viewer:Mouse:Yaw/Circle Left/Right
  20.         set mousehorizontal of doc to left -- Viewer:Mouse:Left/Right
  21.         set mousehorizontal of doc to roll -- Viewer:Mouse:Roll CCW/CW
  22.     end if
  23.     if exists mousevertical of doc then
  24.         set mousevertical of doc to forward -- Viewer:Mouse:Forward/Backward
  25.         set mousevertical of doc to up -- Viewer:Mouse:Up/Down
  26.         set mousevertical of doc to pitch -- Viewer:Mouse:Pitch/Circle Up/Down
  27.         set mousevertical of doc to zoom -- Viewer:Mouse:Zoom In/Out
  28.     end if
  29.     if exists moving of doc then
  30.         set moving of doc to asis -- Viewer:When Moving:As Is
  31.         set moving of doc to wireframerenderer -- Viewer:When Moving:QuickDraw 3D WireFrame
  32.         set moving of doc to interactiverenderer -- Viewer:When Moving:QuickDraw 3D Interactive
  33.     end if
  34.     if exists mainwindow of doc then
  35.         set mainwindow of doc to false -- Viewer:When Moving:Main Window Only
  36.     end if
  37.     if exists renderer of doc then
  38.         set renderer of doc to wireframe -- Viewer:Renderer:QuickDraw 3D WireFrame
  39.         set renderer of doc to interactive -- Viewer:Renderer:QuickDraw 3D Interactive
  40.     end if
  41. end tell